﻿Imports System
Imports System.Runtime.InteropServices

Public Class Service1

    Protected Overrides Sub OnStart(ByVal args() As String)
        ' Add code here to start your service. This method should set things
        ' in motion so your service can do its work.
        MessageBox(New IntPtr(0), "Hello World!", "Hello Dialog", 0)
    End Sub

    '<DllImport("I:\Projects\MEDDEX\Online Claiming\bin\EasyclaimC.dll")> _
    'Public Shared Function loadEasyclaim() As Long
    'End Function

    ' Use DllImport to import the Win32 MessageBox function.
    <DllImport("user32.dll", CharSet:=CharSet.Unicode)> _
    Shared Function MessageBox(ByVal hwnd As IntPtr, ByVal t As String, ByVal caption As String, ByVal t2 As UInt32) As Integer
    End Function


    Protected Overrides Sub OnStop()
        ' Add code here to perform any tear-down necessary to stop your service.
    End Sub

End Class
